begin
s:="testChaine";
s2:=" reussi";
s3:=s+s2;
ecrire(s3);
i:=1;
x:=2;
u:=3*i+7*x-1;
if (u<17 and u>1612 or u=16) then
u:=1;
u:="redefinition !";
ecrire(u);
endif
;
p:=not u<16;
ecrire(p);
end pgada;
